﻿Imports System

Namespace System.Workflow.ComponentModel.Serialization
    <AttributeUsage(AttributeTargets.Class, AllowMultiple:=False, Inherited:=True)> _
    Public NotInheritable Class ContentPropertyAttribute
        Inherits Attribute
        ' Methods
        Public Sub New()
        End Sub

        Public Sub New(ByVal name As String)
            Me.name = name
        End Sub


        ' Properties
        Public ReadOnly Property Name As String
            Get
                Return Me.name
            End Get
        End Property


        ' Fields
        Private name As String
    End Class
End Namespace

